PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Library Hyper Card Templates/Open Stack/Catalog Help/background_2610.txt

Text File | 1987-12-04 | 10.3 KB | 464 lines

-- background: 2610 from stack: in
-- bmap block id: 3106
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=60 top=39 right=70 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Title
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=64 top=72 right=103 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Author
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=104 right=135 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Place
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=80 top=134 right=166 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Publisher
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=47 top=166 right=196 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=197 right=229 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Desc
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 7 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=207 top=167 right=198 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: No. of pages
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 9 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=71 top=236 right=267 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Subjects
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 8 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=115 top=270 right=301 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: See references
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=401 top=314 right=339 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Circulation Card
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Circulation Card"
end mouseUp


-- part 14 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=387 top=167 right=246 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Call number
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=393 top=109 right=125 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Book Number
----- HyperTalk script -----
on closeField
  global fieldList,bookNumber,tentativeBook
  if tentativeBook is true then
    put field "Book Number" into bookNumber
  else

    put word 3 of name of me into tempName
    if not(fieldList contains tempName) then
      put (word 3 of name of me) & "," after fieldList
    end if
  end if
end closeField


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=218 top=316 right=339 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=316 right=339 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=100 top=315 right=335 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label Setup
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Labels stack"
end mouseUp



-- part 19 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=340 top=129 right=145 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ISBN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 20 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=340 top=147 right=164 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: LCCN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=181 top=316 right=336 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "This lets you sort on any field"
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=274 top=315 right=340 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Acquisition Screen
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Acquisitions Screen"
end mouseUp


-- part 28 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=421 top=267 right=281 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check Out
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 29 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=357 top=23 right=39 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Today's date


-- part 30 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=14 top=315 right=336 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help!
----- HyperTalk script -----
on mouseUp
  go to stack "Catalog Help"
end mouseUp